BBS Toolkit/BBS Toolkit.iso/qbbs/qbbs276s.zip/NICK-E.ZIP/SETUP.ZIP/BBS.BAT

DOS Batch File | 1992-05-04 | 6KB | 327 lines

CD\QBBS
ECHO Loading BBS, wait...
DVANSI
rem MXR! 3 20

:FIRST
CD\QBBS
MURPHY > C:\QBBS\TXTFILES\UNUSED.ASC
QUICKBBS.EXE

:START
IF ERRORLEVEL = 201 GOTO MAINT
IF ERRORLEVEL = 200 GOTO MAINT
IF ERRORLEVEL = 199 GOTO MAINT
IF ERRORLEVEL = 130 GOTO RATS
IF ERRORLEVEL = 121 GOTO MAINT
IF ERRORLEVEL = 125 GOTO LOD
IF ERRORLEVEL = 120 GOTO FILES_WW
IF ERRORLEVEL = 115 GOTO GUTS
IF ERRORLEVEL = 110 GOTO ESTERIAN
IF ERRORLEVEL = 105 GOTO NETRUN
IF ERRORLEVEL = 100 GOTO GLOBAL
IF ERRORLEVEL = 97 GOTO VOTEEDIT
IF ERRORLEVEL = 95 GOTO VOTE
IF ERRORLEVEL = 90 GOTO TW2002
IF ERRORLEVEL = 85 GOTO PIT
IF ERRORLEVEL = 80 GOTO MURDER
IF ERRORLEVEL = 75 GOTO BARONS
IF ERRORLEVEL = 70 GOTO EC2
IF ERRORLEVEL = 65 GOTO CC
IF ERRORLEVEL = 60 GOTO YANKEE
IF ERRORLEVEL = 55 GOTO GALWAR
IF ERRORLEVEL = 50 GOTO FISHING
IF ERRORLEVEL = 45 GOTO CHESS
IF ERRORLEVEL = 40 GOTO BATTLESHIP
IF ERRORLEVEL = 7 GOTO BACKIN
IF ERRORLEVEL = 5 GOTO FIRST
IF ERRORLEVEL = 1 GOTO REBOOT
IF ERRORLEVEL = 0 GOTO END
echo It passed errorlevel 0
echo it passed errorlevel 0 >testing.txt
GOTO FIRST

:MAINT
ECHO Running maint, please wait...
ECHO ATH1M0>COM1
CD\QBBS\DOORS\NET
MAINT
IF EXIST CONTROL.DAT DEL CONTROL.DAT
CD\QBBS\TRADEWAR
EXTERN.EXE -QBBS
CD\QBBS\DOORS\YT
YTMAINT
CD\QBBS\DOORS\EC
ECMAINT.EXE /R
COPY RANKINGS.TXT \QBBS\TXTFILES\RANKING1.ASC
CD\QBBS\DOORS\EC2
ECMAINT.EXE /R
COPY RANKINGS.TXT \QBBS\TXTFILES\RANKING2.ASC
rem CD\QBBS\DOORS\SF
rem STARFGHT.EXE -M
CD\QBBS\DOORS\GLOBAL
DEL *.LOK
CD\QBBS
FEBBS F N C
COPY \QBBS\TXTFILES\FENRIR.* \QBBS\TXTFILESU\BIGFILE.*
DEL \QBBS\F\new\BIGFILE.*
LHARC A \QBBS\F\new\BIGFILE.LZH \QBBS\TXTFILES\BIGFILE.*
ARJ A \QBBS\F\new\BIGFILE.ARJ \QBBS\TXTFILES\BIGFILE.*
PKZIP \QBBS\F\new\BIGFILE.ZIP \QBBS\TXTFILES\BIGFILE.*
CD\QBBS\DOORS\FISH
FISHMANT
FISHTEXT C:\QBBS\TXTFILES\FISHTEXT.ASC C:\QBBS\TXTFILES\FISHTEXT.ANS
CD\QBBS
QBBS2DAY
QBEST BIGSTAT BIGTIME_BBS D10 U10 C10 M10 O10 L10 K10 B10 /R /Z /Q /E /A
MOVE BIGSTAT.* \QBBS\TXTFILES\BIGSTAT.*
MSGPACK -P -R
MSGPACK -I
Echo Done with Maint, back to the board!
BOOT
GOTO FIRST

:RATS
CD\QBBS
CONVERT
CD \QBBS\RATS
rem COPY \QBBS\DORINFO1.DEF
rem COPY \QBBS\EXITINFO.BBS
RATS121.EXE /N1
CD \QBBS
rem COPY \QBBS\RATS\DORINFO1.DEF
rem COPY \QBBS\RATS\EXITINFO.BBS
CONVERT
QUICKBBS.EXE -R -E5
GOTO START

:LOD
CD\QBBS\DOORS\LOD
GAME.EXE /PC:\QBBS /N1 /EMS /CHECK
CD\QBBS
QUICKBBS.EXE -R -E5
GOTO START

:GALWAR
CD\QBBS\DOORS\GALWAR
IF EXIST USERON.XXX GOTO USERON
COPY \QBBS\USERON.XXX
COPY \QBBS\DORINFO1.DEF
TWARS.EXE /PC:\QBBS /N1 /CHECK
COPY DORINFO1.DEF \QBBS
DEL USERON.XXX
CD\QBBS
QUICKBBS -R -E5
GOTO START

:CHESS
ECHO OFF
CD\QBBS\DOORS\CHESS
CHESS CHESS1.CNF
CD\QBBS
QUICKBBS.EXE -R -E5
GOTO START

:FILES_WW
C:
cd \QBBS\FILEDOOR
FILEDOOR -Node=1 -DoorInfo=C:\QBBS\DORINFO1.DEF -Fossil
C:
cd \QBBS
QUICKBBS.EXE -R -E5

:BATTLESHIP
ECHO OFF
CD\QBBS\DOORS\BTLSHIP
BSHIP BSHIP1.CNF
CD\QBBS
QUICKBBS.EXE -R -E5
GOTO START

:SUB
CD\QBBS\DOORS\SUB
IF EXIST USERON.XXX GOTO USERON
COPY \QBBS\USERON.XXX
SA NODE01.CNF
DEL USERON.XXX
CD\QBBS
QUICKBBS.EXE -R -E5
GOTO START

:GUTS
CD\QBBS\DOORS
DM 1 PCB14 C:\QBBS\ C:\QBBS\DOORS\GUTS\ 38400
CD\QBBS\DOORS\GUTS
GUTS.EXE C:\QBBS\DOORS\GUTS\GUTS.CNF C:\QBBS\DOORS\GUTS
CD\QBBS
QUICKBBS.EXE -R -E5
GOTO START

:NETRUN
@ECHO OFF
WIXFIX
C:
CD \QBBS\DOORS\NET
NETRUN C:\QBBS\DORINFO2.DEF
CD\QBBS
QUICKBBS.EXE -R -E5
GOTO START

:SINBAUD
CD\QBBS\DOORS
DM 1 GAP C:\QBBS\ C:\QBBS\DOORS\SIN\ 38400
CD\QBBS\DOORS\SIN
IF EXIST USERON.XXX GOTO USERON
COPY \QBBS\USERON.XXX
SINBAUD NODE01.CNF
DEL USERON.XXX
CD\QBBS
QUICKBBS.EXE -r -E5
GOTO START

:MURDER
CD\QBBS\DOORS
DM 1 PCB14 C:\QBBS\ C:\QBBS\DOORS\MM\ 38400
CD MM
MM30 MURDER.CFG
INACTIVE 25
BULLETIN
CD\QBBS
QUICKBBS.EXE -r -e5
GOTO START

:ESTERIAN
CD\QBBS\DOORS\EC
ECGAME.EXE C:\QBBS\DORINFO1.DEF
CD\QBBS
QUICKBBS.EXE -r -E5
GOTO START

:CC
@ECHO OFF
CD\QBBS\DOORS\CC
IF EXIST USERON.XXX GOTO USERON
COPY \QBBS\USERON.BBS
CARIB25 CARIB.CFG PORT:F:1
DEL USERON.XXX
CD\QBBS
QUICKBBS.EXE -r -e5
GOTO START

:GLOBAL
ECHO OFF
ECHO ┌─────────────────┐ >COM1
ECHO │   Global Wars   │ >COM1
ECHO └─────────────────┘ >COM1
CD\QBBS\DOORS
DM 1 PCB14 C:\QBBS\ C:\QBBS\DOORS\GLOBAL\ 38400
CD GLOBAL
WAR /P \QBBS\DOORS\GLOBAL\PCBOARD.SYS
CD\QBBS
QUICKBBS.EXE -r -e5
GOTO START

:VOTEEDIT
C:
CD \qbbs\doors\VOTE
RPE.EXE 1 C:\qbbs QBBS
C:
CD \qbbs
QUICKBBS.EXE -r -e5
GOTO START

:VOTE
CD\QBBS\DOORS\VOTE
IF EXIST USERON.XXX GOTO USERON
COPY \QBBS\USERON.XXX
OPINION 1 C:\QBBS QBBS
DEL USERON.XXX
C:
CD\QBBS
QUICKBBS.EXE -r -e5
GOTO START

:TW2002
ECHO OFF
ECHO ┌─────────────────┐ >COM1
ECHO │ Trade Wars 2002 │ >COM1
ECHO └─────────────────┘ >COM1
CD\QBBS\TRADEWAR
TW2002.EXE -QBBS
CD\QBBS
QUICKBBS.EXE -r -E5
GOTO START

:PIT
CD\QBBS\DOORS\PIT
PIT.EXE /NODE01
CD\QBBS
QUICKBBS.EXE -r -e5
GOTO START

:BARONS
CD\QBBS
rem COPY DORINFO1.DEF DORINFO1.BAK
rem SOFTBAUD D 38400
CD\QBBS\DOORS
DM 1 PCB14 C:\QBBS\ C:\QBBS\DOORS\BARONS\ 38400
CD \QBBS\DOORS\BARONS
BARONS -NODE=1 -DOORINFO=C:\QBBS\DOORS\BARONS\PCBOARD.SYS
rem CD \QBBS
rem COPY DORINFO1.BAK DORINFO1.DEF
CD\QBBS
QUICKBBS.EXE -r -E5
GOTO START

:EC2
CD\QBBS\DOORS\EC2
ECGAME.EXE C:\QBBS\DORINFO1.DEF
CD\QBBS
QUICKBBS.EXE -r -e5
GOTO START

:YANKEE
CD\QBBS\DOORS\YT
COPY \QBBS\DORINFO1.DEF
COPY \QBBS\EXITINFO.BBS
YT.EXE C:\QBBS\DORINFO1.DEF
CD\QBBS
QUICKBBS.EXE -r -e5
GOTO START

:FISHING
CD\QBBS\DOORS\FISH
FISHING 1 C:\QBBS /B38400
IF EXIST DOOR_IN.USE DEL DOOR_IN.USE
CD\QBBS
QUICKBBS.EXE -r -e5
GOTO START

:FILEDOOR
C:
cd \QBBS\FILEDOOR
filedoor 1 C:\QBBS QBBS
C:
cd \QBBS
QUICKBBS.EXE -r -e5
GOTO START

:USERON
ECHO Sorry, a user is currently in this door and it does not support
ECHO multi-node use, try again in a few minutes.
CD\QBBS
QUICKBBS.EXE -R -E5
GOTO START

:BACKIN
CD\QBBS
Echo Now back to the BBS, was that door registered? >COM1
QUICKBBS.EXE -E0 -R
GOTO START

:REBOOT
XU BOOT

:END
Echo Yep, all done folks!